home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / dxrs / jukebx02.dxr / 00030_Playing Records.ls < prev    next >
Encoding:
Text File  |  1996-12-09  |  3.0 KB  |  98 lines
  1. on PlayRecord
  2.   global TrayNumber, Turntable, selection, Needle, recordFlag, record, OriginalNeedlePosition, needlePosition, OriginalRecordTrayHeight, OriginalTurntableHeight, buttonClicked, m, screen, DriveLtr
  3.   set recordFlag to 1
  4.   BubbleAnimation()
  5.   set OriginalTrayPosition to the locV of sprite TrayNumber
  6.   puppetSound(2, 150)
  7.   if screen = 3 then
  8.     repeat with TrayPosition = 50 to 72
  9.       set the memberNum of sprite TrayNumber to TrayPosition
  10.       updateStage()
  11.       BubbleAnimation()
  12.       if screen = 3 then
  13.         hExit()
  14.         next repeat
  15.       end if
  16.       exit repeat
  17.     end repeat
  18.   end if
  19.   if screen = 3 then
  20.     set OriginalTurntableHeight to the locV of sprite Turntable
  21.     repeat while the locV of sprite Turntable > (the locV of sprite TrayNumber + 20)
  22.       set the locV of sprite Turntable to the locV of sprite Turntable - 20
  23.       updateStage()
  24.       puppetSound(2, 151)
  25.       BubbleAnimation()
  26.       if screen = 3 then
  27.         hExit()
  28.         next repeat
  29.       end if
  30.       exit repeat
  31.     end repeat
  32.     set the locV of sprite Turntable to the locV of sprite TrayNumber - 2
  33.     updateStage()
  34.   end if
  35.   if screen = 3 then
  36.     set the locV of sprite record to the locV of sprite TrayNumber - 2
  37.     set the visible of sprite record to 1
  38.     updateStage()
  39.   end if
  40.   if screen = 3 then
  41.     set OriginalRecordTrayHeight to the locV of sprite TrayNumber - 2
  42.     repeat while the locV of sprite Turntable > (the locV of sprite Needle + 40)
  43.       set the locV of sprite Turntable to the locV of sprite Turntable - 20
  44.       set the locV of sprite record to the locV of sprite Turntable
  45.       updateStage()
  46.       puppetSound(2, 151)
  47.       BubbleAnimation()
  48.       if screen = 3 then
  49.         hExit()
  50.         next repeat
  51.       end if
  52.       exit repeat
  53.     end repeat
  54.     set the locV of sprite Turntable to the locV of sprite Needle + 20
  55.     set the locV of sprite record to the locV of sprite Needle + 20
  56.     updateStage()
  57.   end if
  58.   if screen = 3 then
  59.     set the memberNum of sprite Turntable to the number of member "turntablerot1"
  60.     set OriginalNeedlePosition to the locV of sprite Needle
  61.     set the memberNum of sprite Turntable to the number of member "turntablerot2"
  62.   end if
  63.   if screen = 3 then
  64.     repeat with needlePosition = OriginalNeedlePosition to the locV of sprite record - 4
  65.       set the locV of sprite Needle to needlePosition
  66.       updateStage()
  67.       BubbleAnimation()
  68.       rotate()
  69.       if screen = 3 then
  70.         hExit()
  71.         next repeat
  72.       end if
  73.       exit repeat
  74.     end repeat
  75.   end if
  76.   if screen = 3 then
  77.     puppetSound(2, 145)
  78.     sound playFile 1, DriveLtr & "Music" & m & selection
  79.     rotate()
  80.   end if
  81. end
  82.  
  83. on rotate
  84.   global Turntable, rotation
  85.   BubbleAnimation()
  86.   set the memberNum of sprite Turntable to rotation
  87.   updateStage()
  88.   if rotation = the number of member "TurnTableRot2" then
  89.     set rotation to the number of member "TurnTableRot1"
  90.   else
  91.     set rotation to rotation + 1
  92.   end if
  93.   if rollOver(28) and the mouseDown then
  94.     puppetSound(2, 149)
  95.     sound stop 1
  96.   end if
  97. end
  98.